Attribute VB_Name = "HeadModule"
Public SNContinue As Boolean
Function HeadBoolen(ByVal file As CIniFile) As String
    
    Dim tempString As String
    Dim SPL() As String
    HeadBoolen = ""
    tempString = file.ReadString("Product", "Source", 30)
    If tempString <> "Passive_Web" Then
        HeadBoolen = ""
        Exit Function
    End If
    tempString = file.ReadString("Product", "Function_Code", 30)
    If tempString <> "Universal" Then
        HeadBoolen = ""
        Exit Function
    End If
    tempString = file.ReadString("Product", "Matrix_Switch", 30)
    
    HeadBoolen = file.ReadString("Product", "Product", 40)
    SPL = Split(HeadBoolen, "_")
    If UBound(SPL) = 1 Then
        HeadBoolen = SPL(1)
    End If
    
End Function
